home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / OPENWUNR.ZIP / OPENWIDE.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1994-04-14  |  15.0 KB  |  429 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  TINTEGER001(32,2)
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     String   STRING001
  27.     String   STRING002
  28.     String   STRING003
  29.     String   STRING004
  30.     String   STRING005
  31.     String   TSTRING006(16)
  32.     String   TSTRING007(512)
  33.     String   TSTRING008(512)
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     STRING001 = ""
  38.     INTEGER005 = 31
  39.     INTEGER003 = 0
  40.     INTEGER002 = 0
  41.     INTEGER007 = 0
  42.     TINTEGER001(0, 0) = 3
  43.     TINTEGER001(0, 1) = 6
  44.     TINTEGER001(1, 0) = 3
  45.     TINTEGER001(1, 1) = 7
  46.     TINTEGER001(2, 0) = 3
  47.     TINTEGER001(2, 1) = 8
  48.     TINTEGER001(3, 0) = 3
  49.     TINTEGER001(3, 1) = 9
  50.     TINTEGER001(4, 0) = 3
  51.     TINTEGER001(4, 1) = 10
  52.     TINTEGER001(5, 0) = 3
  53.     TINTEGER001(5, 1) = 11
  54.     TINTEGER001(6, 0) = 3
  55.     TINTEGER001(6, 1) = 12
  56.     TINTEGER001(7, 0) = 3
  57.     TINTEGER001(7, 1) = 13
  58.     TINTEGER001(8, 0) = 3
  59.     TINTEGER001(8, 1) = 14
  60.     TINTEGER001(9, 0) = 3
  61.     TINTEGER001(9, 1) = 15
  62.     TINTEGER001(10, 0) = 3
  63.     TINTEGER001(10, 1) = 16
  64.     TINTEGER001(11, 0) = 3
  65.     TINTEGER001(11, 1) = 17
  66.     TINTEGER001(12, 0) = 3
  67.     TINTEGER001(12, 1) = 18
  68.     TINTEGER001(13, 0) = 3
  69.     TINTEGER001(13, 1) = 19
  70.     TINTEGER001(14, 0) = 3
  71.     TINTEGER001(14, 1) = 20
  72.     TINTEGER001(15, 0) = 3
  73.     TINTEGER001(15, 1) = 21
  74.     TINTEGER001(16, 0) = 42
  75.     TINTEGER001(16, 1) = 6
  76.     TINTEGER001(17, 0) = 42
  77.     TINTEGER001(17, 1) = 7
  78.     TINTEGER001(18, 0) = 42
  79.     TINTEGER001(18, 1) = 8
  80.     TINTEGER001(19, 0) = 42
  81.     TINTEGER001(19, 1) = 9
  82.     TINTEGER001(20, 0) = 42
  83.     TINTEGER001(20, 1) = 10
  84.     TINTEGER001(21, 0) = 42
  85.     TINTEGER001(21, 1) = 11
  86.     TINTEGER001(22, 0) = 42
  87.     TINTEGER001(22, 1) = 12
  88.     TINTEGER001(23, 0) = 42
  89.     TINTEGER001(23, 1) = 13
  90.     TINTEGER001(24, 0) = 42
  91.     TINTEGER001(24, 1) = 14
  92.     TINTEGER001(25, 0) = 42
  93.     TINTEGER001(25, 1) = 15
  94.     TINTEGER001(26, 0) = 42
  95.     TINTEGER001(26, 1) = 16
  96.     TINTEGER001(27, 0) = 42
  97.     TINTEGER001(27, 1) = 17
  98.     TINTEGER001(28, 0) = 42
  99.     TINTEGER001(28, 1) = 18
  100.     TINTEGER001(29, 0) = 42
  101.     TINTEGER001(29, 1) = 19
  102.     TINTEGER001(30, 0) = 42
  103.     TINTEGER001(30, 1) = 20
  104.     TINTEGER001(31, 0) = 42
  105.     TINTEGER001(31, 1) = 21
  106.     TSTRING006(0) = "0"
  107.     TSTRING006(1) = "1"
  108.     TSTRING006(2) = "2"
  109.     TSTRING006(3) = "3"
  110.     TSTRING006(4) = "4"
  111.     TSTRING006(5) = "5"
  112.     TSTRING006(6) = "6"
  113.     TSTRING006(7) = "7"
  114.     TSTRING006(8) = "8"
  115.     TSTRING006(9) = "9"
  116.     TSTRING006(10) = "A"
  117.     TSTRING006(11) = "B"
  118.     TSTRING006(12) = "C"
  119.     TSTRING006(13) = "D"
  120.     TSTRING006(14) = "E"
  121.     TSTRING006(15) = "F"
  122.     Log "OPENWIDE PPE: entered", 0
  123.     If (TokCount() == 0) Then
  124.         Print "OPENWIDE: .CFG path not specified, exiting..."
  125.         Log "OPENWIDE: .CFG path not specified, exiting...", 0
  126.     Else
  127.         STRING002 = GetToken()
  128.         FOpen 1, PPEPath() + STRING002, 0, 0
  129.         If (Ferr(1)) Then
  130.             Print "OPENWIDE: could not open " + STRING002 + ", exiting..."
  131.             Log "OPENWIDE: could not open " + STRING002 + ", exiting...", 0
  132.         Else
  133.             FGet 1, STRING003
  134.             FGet 1, STRING004
  135.             FGet 1, STRING005
  136.             STRING003 = Upper(STRING003)
  137.             STRING004 = Upper(STRING004)
  138.             STRING005 = Upper(STRING005)
  139.             If (STRING003 == "RANDOM") STRING003 = TSTRING006(Random(15))
  140.             If (STRING004 == "RANDOM") Then
  141.                 INTEGER004 = Random(7)
  142.                 STRING004 = TSTRING006(INTEGER004)
  143.                 STRING005 = TSTRING006(INTEGER004 + 8)
  144.             Endif
  145.             INTEGER004 = 0
  146.             FGet 1, TSTRING007(INTEGER004)
  147.             FGet 1, TSTRING008(INTEGER004)
  148.             :LABEL001
  149.             If (Ferr(1)) Goto LABEL002
  150.             Inc INTEGER004
  151.             FGet 1, TSTRING007(INTEGER004)
  152.             FGet 1, TSTRING008(INTEGER004)
  153.             Goto LABEL001
  154.             :LABEL002
  155.             INTEGER006 = INTEGER004
  156.             If (Ferr(1)) Then
  157.                 Print "OPENWIDE: error reading " + STRING002 + ", exiting..."
  158.                 Log "OPENWIDE: error reading " + STRING002 + ", exiting...", 0
  159.             Else
  160.                 :LABEL003
  161.                 Gosub LABEL011
  162.                 Gosub LABEL010
  163.                 Gosub LABEL007
  164.                 While (INTEGER003 <> 1) Do
  165.                     STRING002 = ""
  166.                     STRING002 = Inkey()
  167.                     STRING002 = Upper(STRING002)
  168.                     If ((Left(STRING002, 4) == "DOWN") || (STRING002 == "2")) Then
  169.                         Gosub LABEL008
  170.                         Inc INTEGER002
  171.                         If (INTEGER002 > INTEGER005) INTEGER002 = 0
  172.                         Gosub LABEL007
  173.                         Continue
  174.                     Endif
  175.                     If ((Left(STRING002, 2) == "UP") || (STRING002 == "8")) Then
  176.                         Gosub LABEL008
  177.                         Dec INTEGER002
  178.                         If (INTEGER002 < 0) INTEGER002 = INTEGER005
  179.                         Gosub LABEL007
  180.                         Continue
  181.                     Endif
  182.                     If ((Left(STRING002, 5) == "RIGHT") || (STRING002 == "6")) Then
  183.                         Gosub LABEL008
  184.                         If (INTEGER002 + (INTEGER005 + 1) / 2 > INTEGER005) Then
  185.                             INTEGER002 = INTEGER002 + (INTEGER005 + 1) / 2 - INTEGER005 - 1
  186.                             Goto LABEL004
  187.                         Endif
  188.                         INTEGER002 = INTEGER002 + (INTEGER005 + 1) / 2
  189.                         :LABEL004
  190.                         Gosub LABEL007
  191.                         Continue
  192.                     Endif
  193.                     If ((Left(STRING002, 4) == "LEFT") || (STRING002 == "4")) Then
  194.                         Gosub LABEL008
  195.                         If (INTEGER002 - (INTEGER005 + 1) / 2 < 0) Then
  196.                             INTEGER002 = INTEGER005 + INTEGER002 - (INTEGER005 + 1) / 2 + 1
  197.                             Goto LABEL005
  198.                         Endif
  199.                         INTEGER002 = INTEGER002 - (INTEGER005 + 1) / 2
  200.                         :LABEL005
  201.                         Gosub LABEL007
  202.                         Continue
  203.                     Endif
  204.                     If (STRING002 == Chr(13)) Then
  205.                         Gosub LABEL009
  206.                         INTEGER003 = 1
  207.                         Continue
  208.                     Endif
  209.                     If (STRING002 == "Q") Then
  210.                         INTEGER003 = 1
  211.                         Continue
  212.                     Endif
  213.                     If (STRING002 == "H") Then
  214.                         DefColor
  215.                         Gosub LABEL012
  216.                         Goto LABEL003
  217.                         Continue
  218.                     Endif
  219.                     If ((STRING002 == "+") || (Left(STRING002, 4) == "PGDN")) Then
  220.                         DefColor
  221.                         Inc INTEGER007
  222.                         If (INTEGER007 > 15) INTEGER007 = 15
  223.                         Goto LABEL003
  224.                         Continue
  225.                     Endif
  226.                     If ((STRING002 == "-") || (Left(STRING002, 4) == "PGUP")) Then
  227.                         DefColor
  228.                         Dec INTEGER007
  229.                         If (INTEGER007 < 0) INTEGER007 = 0
  230.                         Goto LABEL003
  231.                         Continue
  232.                     Endif
  233.                     If ((Left(STRING002, 4) == "HOME") || (STRING002 == Chr(23))) Then
  234.                         DefColor
  235.                         INTEGER007 = 0
  236.                         INTEGER002 = 0
  237.                         Goto LABEL003
  238.                         Continue
  239.                     Endif
  240.                     If ((Left(STRING002, 3) == "END") || (STRING002 == Chr(16))) Then
  241.                         DefColor
  242.                         INTEGER007 = INTEGER006 / INTEGER005 + 1
  243.                         INTEGER002 = 0
  244.                         Goto LABEL003
  245.                     Endif
  246.                 EndWhile
  247.             Endif
  248.         Endif
  249.     Endif
  250.     :LABEL006
  251.     DefColor
  252.     Print "@CLS@"
  253.     FClose 1
  254.     Log "OPENWIDE PPE: exited", 0
  255.     End
  256.     :LABEL007
  257.     STRING002 = ScrText(TINTEGER001(INTEGER002, 0), TINTEGER001(INTEGER002, 1), 8, 0)
  258.     STRING002 = Strip(STRING002, " ")
  259.     AnsiPos TINTEGER001(INTEGER002, 0), TINTEGER001(INTEGER002, 1)
  260.     Print "@X" + STRING004 + "0"
  261.     If (STRING002 == "") Then
  262.         Print "QUIT"
  263.     Else
  264.         Print STRING002
  265.     Endif
  266.     AnsiPos TINTEGER001(INTEGER002, 0), TINTEGER001(INTEGER002, 1)
  267.     Return
  268.     :LABEL008
  269.     STRING002 = ScrText(TINTEGER001(INTEGER002, 0), TINTEGER001(INTEGER002, 1), 8, 0)
  270.     STRING002 = Strip(STRING002, " ")
  271.     AnsiPos TINTEGER001(INTEGER002, 0), TINTEGER001(INTEGER002, 1)
  272.     Print "@X" + STRING004 + STRING005
  273.     If (STRING002 == "QUIT") Then
  274.         Print "        "
  275.     Else
  276.         Print STRING002
  277.     Endif
  278.     Return
  279.     :LABEL009
  280.     If (TSTRING007(INTEGER002) <> "QUIT") Then
  281.         KbdString TSTRING007(INTEGER002 + INTEGER007 * (INTEGER005 + 1)) + Chr(13)
  282.     Endif
  283.     Return
  284.     KbdString "" + Chr(13)
  285.     Goto LABEL006
  286.     :LABEL010
  287.     Print "@X" + STRING004 + STRING005
  288.     For INTEGER004 = 0 To INTEGER005
  289.         AnsiPos TINTEGER001(INTEGER004, 0), TINTEGER001(INTEGER004, 1)
  290.         If (TSTRING007(INTEGER004 + INTEGER007 * (INTEGER005 + 1)) == "") Then
  291.             Print "        "
  292.         Else
  293.             Print TSTRING007(INTEGER004 + INTEGER007 * (INTEGER005 + 1))
  294.         Endif
  295.         AnsiPos TINTEGER001(INTEGER004, 0) + 10, TINTEGER001(INTEGER004, 1)
  296.         If (TSTRING007(INTEGER004 + INTEGER007 * (INTEGER005 + 1)) == "") Then
  297.             Print "                          "
  298.             Continue
  299.         Endif
  300.         Print TSTRING008(INTEGER004 + INTEGER007 * (INTEGER005 + 1))
  301.     Next
  302.     Return
  303.     :LABEL011
  304.     PrintLn "@POFF@@CLS@@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "┌───────────────────────────────────────────────────────────────────────────@X" + STRING004 + "0┐@X08▌"
  305.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│ @X" + STRING004 + STRING003 + "OPENWIDE.PPE ■ COPYRIGHT 1994 ROBERT BROWER ■ TOTAL ACCESS (905) 568-5294 @X" + STRING004 + "0│@X08▌"
  306.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "└@X" + STRING004 + "0───────────────────────────────────────────────────────────────────────────┘@X08▌"
  307.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "  (@X" + STRING004 + STRING003 + "@X" + STRING004 + STRING005 + ")UP/DOWN (@X" + STRING004 + STRING003 + "@X" + STRING004 + STRING005 + ")LEFT/RIGHT (@X" + STRING004 + STRING003 + "H@X" + STRING004 + STRING005 + ")ELP (@X" + STRING004 + STRING003 + "Q@X" + STRING004 + STRING005 + ")UIT (@X" + STRING004 + STRING003 + "+@X" + STRING004 + STRING005 + "/@X" + STRING004 + STRING003 + "-@X" + STRING004 + STRING005 + ")NEXT/PREV PAGE (@X" + STRING004 + STRING003 + "ENTER@X" + STRING004 + STRING005 + ")=SELECT  @X08▌"
  308.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "┌────────@X" + STRING004 + "0┐@X" + STRING004 + STRING005 + "┌──────────────────────────@X" + STRING004 + "0┐ @X" + STRING004 + STRING005 + "┌────────@X" + STRING004 + "0┐@X" + STRING004 + STRING005 + "┌──────────────────────────@X" + STRING004 + "0┐@X08▌"
  309.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  310.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  311.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  312.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  313.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  314.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  315.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  316.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  317.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  318.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  319.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  320.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  321.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  322.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  323.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  324.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│        @X" + STRING004 + "0│@X" + STRING004 + STRING005 + "│                          @X" + STRING004 + "0│@X08▌"
  325.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "└@X" + STRING004 + "0────────┘@X" + STRING004 + STRING005 + "└@X" + STRING004 + "0──────────────────────────┘ @X" + STRING004 + STRING005 + "└@X" + STRING004 + "0────────┘@X" + STRING004 + STRING005 + "└@X" + STRING004 + "0──────────────────────────┘@X08▌"
  326.     Return
  327.     :LABEL012
  328.     PrintLn "@POFF@@CLS@@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "┌───────────────────────────────────────────────────────────────────────────@X" + STRING004 + "0┐@X08▌"
  329.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│ @X" + STRING004 + STRING003 + "OPENWIDE.PPE ■ COPYRIGHT 1994 ROBERT BROWER ■ TOTAL ACCESS (905) 568-5294 @X" + STRING004 + "0│@X08▌"
  330.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "└@X" + STRING004 + "0───────────────────────────────────────────────────────────────────────────┘@X08▌"
  331.     If (STRING001 <> "") Then
  332.         STRING002 = "REGISTERED TO: " + STRING001
  333.         Forward (80 - Len(STRING002)) / 2
  334.         PrintLn "@X0" + STRING003 + STRING002
  335.     Else
  336.         PrintLn "@X8E                         UNREGISTERED EVALUATION COPY"
  337.     Endif
  338.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "┌───────────────────────────────────────────────────────────────────────────@X" + STRING004 + "0┐@X08▌"
  339.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│                                                                           @X" + STRING004 + "0│@X08▌"
  340.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│     @X" + STRING004 + STRING003 + "KEY         FUNCTION DESCRIPTION                                      @X" + STRING004 + "0│@X08▌"
  341.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0┌───────@X" + STRING004 + STRING005 + "┐ @X" + STRING004 + "0┌────────────────────────────@X" + STRING004 + STRING005 + "┐                                 @X" + STRING004 + "0│@X08▌"
  342.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│     @X" + STRING004 + STRING003 + " @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Move Up One Selection      @X" + STRING004 + STRING005 + "│                                 @X" + STRING004 + "0│@X08▌"
  343.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│     @X" + STRING004 + STRING003 + " @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Move Down One Selection    @X" + STRING004 + STRING005 + "│       @X" + STRING004 + STRING003 + "CURSOR or NUMERICAL       @X" + STRING004 + "0│@X08▌"
  344.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│     @X" + STRING004 + STRING003 + " @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Move Left One Selection    @X" + STRING004 + STRING005 + "│         @X" + STRING004 + STRING003 + "DIRECTION KEYS:         @X" + STRING004 + "0│@X08▌"
  345.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│     @X" + STRING004 + STRING003 + " @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Move Right One Selection   @X" + STRING004 + STRING005 + "│           @X" + STRING004 + "0┌─────────@X" + STRING004 + STRING005 + "┐           @X" + STRING004 + "0│@X08▌"
  346.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│  @X" + STRING004 + STRING003 + "HOME @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Go To First Page           @X" + STRING004 + STRING005 + "│           @X" + STRING004 + "0│    @X" + STRING004 + STRING003 + "8    @X" + STRING004 + STRING005 + "│           @X" + STRING004 + "0│@X08▌"
  347.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│   @X" + STRING004 + STRING003 + "END @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Go To Last Page            @X" + STRING004 + STRING005 + "│           @X" + STRING004 + "0│    @X" + STRING004 + STRING003 + "    @X" + STRING004 + STRING005 + "│           @X" + STRING004 + "0│@X08▌"
  348.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│@X" + STRING004 + STRING003 + "PGDN/+ @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Go To Next Page            @X" + STRING004 + STRING005 + "│           @X" + STRING004 + "0│  @X" + STRING004 + STRING003 + "4  6  @X" + STRING004 + STRING005 + "│           @X" + STRING004 + "0│@X08▌"
  349.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│@X" + STRING004 + STRING003 + "PGUP/- @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Go To Previous Page        @X" + STRING004 + STRING005 + "│           @X" + STRING004 + "0│    @X" + STRING004 + STRING003 + "    @X" + STRING004 + STRING005 + "│           @X" + STRING004 + "0│@X08▌"
  350.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│     @X" + STRING004 + STRING003 + "H @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "View This Help Screen      @X" + STRING004 + STRING005 + "│           @X" + STRING004 + "0│    @X" + STRING004 + STRING003 + "2    @X" + STRING004 + STRING005 + "│           @X" + STRING004 + "0│@X08▌"
  351.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│     @X" + STRING004 + STRING003 + "Q @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Quit And Return To System  @X" + STRING004 + STRING005 + "│           @X" + STRING004 + "0└@X" + STRING004 + STRING005 + "─────────┘           @X" + STRING004 + "0│@X08▌"
  352.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "ENTER @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Select Application         @X" + STRING004 + STRING005 + "│                                 @X" + STRING004 + "0│@X08▌"
  353.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0└@X" + STRING004 + STRING005 + "───────┘ @X" + STRING004 + "0└@X" + STRING004 + STRING005 + "────────────────────────────┘                                 @X" + STRING004 + "0│@X08▌"
  354.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│                                                                           @X" + STRING004 + "0│@X08▌"
  355.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "└@X" + STRING004 + "0───────────────────────────────────────────────────────────────────────────┘@X08▌"
  356.     Print "@WAIT@"
  357.     Return
  358.  
  359. ;------------------------------------------------------------------------------
  360. ;
  361. ; Usage report (before postprocessing)
  362. ;
  363. ; ■ Statements used :
  364. ;
  365. ;    1       End
  366. ;    55      Goto 
  367. ;    119     Let 
  368. ;    16      Print 
  369. ;    45      PrintLn 
  370. ;    31      If 
  371. ;    1       FOpen 
  372. ;    1       FClose 
  373. ;    7       FGet 
  374. ;    6       DefColor
  375. ;    5       Log 
  376. ;    13      Gosub 
  377. ;    6       Return
  378. ;    3       Inc 
  379. ;    2       Dec 
  380. ;    5       AnsiPos 
  381. ;    1       Forward 
  382. ;    2       KbdString 
  383. ;
  384. ;
  385. ; ■ Functions used :
  386. ;
  387. ;    5       *
  388. ;    8       /
  389. ;    917     +
  390. ;    6       -
  391. ;    26      ==
  392. ;    3       <>
  393. ;    4       <
  394. ;    1       <=
  395. ;    3       >
  396. ;    2       >=
  397. ;    26      !
  398. ;    2       &&
  399. ;    9       ||
  400. ;    1       Len(
  401. ;    4       Upper()
  402. ;    8       Left()
  403. ;    3       Ferr()
  404. ;    5       Chr()
  405. ;    2       Random()
  406. ;    2       Strip()
  407. ;    1       Inkey()
  408. ;    1       PPEPath()
  409. ;    1       GetToken()
  410. ;    1       TokCount()
  411. ;    2       ScrText()
  412. ;
  413. ;------------------------------------------------------------------------------
  414. ;
  415. ; Analysis flags : No flag
  416. ;
  417. ;------------------------------------------------------------------------------
  418. ;
  419. ; Postprocessing report
  420. ;
  421. ;    1       For/Next
  422. ;    1       While/EndWhile
  423. ;    23      If/Then or If/Then/Else
  424. ;    0       Select Case
  425. ;
  426. ;------------------------------------------------------------------------------
  427. ;                 AEGiS Corp - Break the routines, code against the machines!
  428. ;------------------------------------------------------------------------------
  429.